home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 3 / Amoszine 3.adf / sticks_ext / sticks-demos / MouseSet.AMOS / MouseSet.amosSourceCode < prev    next >
AMOS Source Code  |  1992-02-26  |  601b  |  25 lines
  1. Flash Off : Curs Off : Cls 0
  2. Hide 
  3. Pen 1 : Paper 0
  4. Get Sprite Palette 
  5. Colour Back Colour(0) : View 
  6. Reserve Zone 1
  7. Set Zone 1,0,0 To 32,32
  8. Paste Bob 0,0,3
  9. Paste Bob 288,168,4
  10. Locate ,10 : Centre "Click on 'Goto Jail'"
  11. Do 
  12. X= Extension_17_00DA(0) : Y= Extension_17_00F4(0)
  13. X1= Extension_17_00DA(1) : Y1= Extension_17_00F4(1)
  14. MA= Extension_17_0132(0) : MA1= Extension_17_0132(1)
  15. Sprite 0,X,Y,1
  16. Sprite 2,X1,Y1,2
  17. If MA=1 and Extension_17_011E(0)>0
  18.  Extension_17_00C8 0,425
  19.  Extension_17_00E2 0,226
  20. End If 
  21. If MA1=1 and Extension_17_011E(1)>0
  22.  Extension_17_00C8 1,425
  23.  Extension_17_00E2 1,226
  24. End If 
  25. Loop